home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #193 (1992)(Rhein-Sieg-Soft).zip
/
Franz PD Disk #193 (1992)(Rhein-Sieg-Soft).adf
/
GFA.Beispiel
/
TAGEFINDER.LST
< prev
next >
Wrap
File List
|
1992-09-14
|
2KB
|
46 lines
REM *********************************
REM * Tagefinder V1.00 *
REM * © 1992 by Henry König *
REM * Bornheide 71, 2000 Hamburg 53 *
REM *********************************
init ! Variable vorbesetzen
start:
t=0 ! Eingangswert fuer die Schleife
WHILE t<1 OR t>31 ! nur Tage zwischen 1 und 31 erlaubt
INPUT " Tag: ";t
WEND
m=0 ! Eingangswert fuer die Schleife
WHILE m<1 OR m>12 ! nur die Monate 1 bis 12 erlauben
INPUT "Monat: ";m
WEND
j=0 ! Eingangswert fuer die Schleife
WHILE j<1700 ! richtiges Ergebnis nur ab 1700 möglich
INPUT " Jahr: ";j
WEND
z=j-1 ! Jahr minus 1
c=INT(z/4)-INT(z/100)+INT(z/400)
x=(j+t+c)-1 ! Anzahl der Tage
x=x+VAL(MID$(ausg$,m,1)) !
IF m>2 AND j=4*INT(j/4) AND j<>100*INT(j/100) OR j=400*INT(j/400) THEN
x=x+1 ! Schaltjahr, dann plus 1 Tag
ENDIF
x=x-7*INT(x/7) ! Tag von 1 bis 7 berechnen
PRINT "Der ";t;".";m;".";j;" war ein ";tag$(x+1)
PRINT
GOTO start
PROCEDURE init ! Variable vorbesetzen
DIM tag$(7) ! Tag in Klartext
FOR j%=1 TO 7 ! 7 Tage
READ tag$(j%) ! Tage lesen
NEXT j%
ausg$="033614625035" ! Monatskorrekturzahlen
DATA "Sonntag"
DATA "Montag"
DATA "Dienstag"
DATA "Mittwoch"
DATA "Donnerstag"
DATA "Freitag"
DATA "Samstag"
RETURN
REM